`cavg` <-
function(cl,tau,dose,...)dose/cl/tau

